home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D04.D64 / techno tip (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  297 b   |  7 lines
  1. 0 REM ** CDU TECHNO INFO TIP  FEB.1991
  2. 1 OPEN4,4:FORN=0TO63:FORX=0TO3:D=N+64*X:D$=RIGHT$("  "+STR$(D),3)+" %":A$=""
  3. 2 B=D:FORI=0TO7:T=B-INT(B/2)*2:A$=CHR$(49+1*(T=0))+A$:B=INT(B/2):NEXT
  4. 3 D$=D$+A$+" $":A$=""
  5. 4 IFDTHENA=INT(D/16):A$=MID$("0123456789ABCDEF",1+D-A*16,1)+A$:D=A:GOTO4
  6. 5 D$=D$+RIGHT$("00"+A$,2)+"   ":PRINT#4,D$;:NEXT:PRINT#4:NEXT:CLOSE4
  7.